home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / divers / derivee.sha < prev    next >
Text File  |  1994-03-01  |  431b  |  9 lines
  1. 10 REM DERIVE EN X0
  2. 20 REM (C) WILLYTEL JUIN 89
  3. 30 REM 24H/7H AU 62.93.74.05
  4. 40 REM chr$(26):jap on, chr$(27):jap off
  5. 50 MODE5:PRINT "E=END":CLS:PRINT "Calcul de derivee";CHR$(13);:INPUT "Fonction F(X)=";F$
  6. 60 CLS:PRINT "F(X)=";F$;CHR$(13);:INPUT "X0=";X$:X=VALF(X$):IF X$="E" THEN PRINT "END.";CHR$(13);:MODE4:END
  7. 70 X0=X:F0=VALF(F$):X=X+X*1E-8+1E-10:F=VALF(F$):F=(F0-F)/(X0-X):X=X0
  8. 80 A$="F'("+X$+")=":PRINT A$;F:GOTO 60
  9.